|
|
 |
|
|
|
|
114: Set theReporting = theAccessReporting
115: theAccessReporting.setReportList theForm.cboReports
116: 'theForm.txtReportName = AuthorsRpt
117: theForm.txtReportName = LocationPhysiciansRpt
118: 'theForm.cboReports
119: End If
120: End Sub
121:
122: '##ModelId=352152100262
123: Private Sub setCrystalReporting(argMsg As Byte)
124: Dim sConnString As String
125: On Error GoTo setCrystalReportingErr
126: sConnString = DSN = TestDB;UID = sa;PWD = sa
127: If eReporting.CrystalReporting = argMsg Then
128: Set theCrystalReporting = New CrystalReporting
129: Set theReporting = theCrystalReporting
130: theCrystalReporting.setCrystalControl
theForm.CrystalReport1
131: theCrystalReporting.connectToDataSource sConnString
132: 'theForm.txtReportName = AuthorsRpt
133: End If
134: Exit Sub
135: setCrystalReportingErr:
136: MsgBox Err.Number & : & Err.Description
137: End Sub
138:
139: '##ModelId=3521521002D0
140: Private Sub setRichTextReporting(argMsg As Byte)
141: If eReporting.RichTextReporting = argMsg Then
142: Set theRichTextReporting = New RichTextReporting
143: Set theReporting = theRichTextReporting
144: theRichTextReporting.setRichTextBox
theForm.txtReportContents
145: 'theForm.txtReportName = AuthorsRpt
146: theReporting.ReportName = txtReportName.Text 'theForm.txtReportContents.Text
147: 'theReporting.openReport theReporting.ReportName
148: End If
149: End Sub
150:
151: '##ModelId=35215210030D
152: Public Sub showForm()
153: 'Set theForm = New frmRTF
154: With theForm
155: theRichTextFormatting.setupForm .txtReportContents, _
156: .cmbFontName, .cmbFontSize, .cmbFontColor
157: 'Activates timer (see WithEvents declaration)
158: Set theTimer = .Timer1
|
|
|
|
|
|